  10 :RETURN ;CLEAR ;NT=1
  12 PRINT "**** W & W RACE TRACK ****1-4 PLAYERS. EACH STARTS  WITH $500. BETS CAN BE 1  TO 100 DOLLARS.
  15 PRINT ;PRINT "GOOD LUCK!";PRINT 
  20 FOR Z=1TO 28;@(Z)=0;NEXT Z
  30 INPUT "# OF PLAYERS?"P;IF (P<1)+(P>4)GOTO 30
  40 FOR A=1TO P;@(A)=500;NEXT A
  50 BC=RND (32)×8;FC=BC+4+RND (32)×8
  60 CLEAR ;PRINT "CURRENT ODDS ARE:
  70 FOR A=5TO 10;@(A)=RND (15)+5;PRINT #2,A-4,"-",#3,@(A),"-1";NEXT A
  80 K=0;FOR A=1TO P;IF @(A)#0K=1;CY=-20;PRINT "PLAYER #",#1,A," INPUT HORSE ",;INPUT "#"@(A+10)
  85 CY=-28
  90 IF @(A)#0INPUT "AMOUNT OF BET?"@(A+14);IF (@(A+14)>@(A))+(@(A+14)>100)CY=-28;PRINT "TOO MUCH!!!        ";GOTO 85
  95 IF @(A)#0INPUT "1-WIN 2-PLACE 3-SHOW"@(A+18);IF (@(A+18)>3)+(@(A+18)<1)CY=-36;GOTO 95
 100 IF @(A)#0@(A)=@(A)-@(A+14)
 110 BOX 0,-28,160,29,2;NEXT A;IF K=0PRINT "ALL PLAYERS BUSTED!";FOR Z=1TO 1000;NEXT Z;GOTO 10
 130 NT=4;FC=BC;PRINT "÷7000+2000-500070777 -60-6-6-6 30-6030÷7000000000";NT=0;CLEAR 
 140 Y=40;FOR Z=23TO 28;Y=Y-10;@(Z)=-70;X=@(Z);CY=Y;PRINT #1,Z-22;GOSUB 2000;NEXT Z
 150 BOX 70,0,1,86,1;K=0;NT=1;FC=BC+4+RND (32)×8
 160 &(21)=15;&(20)=55;&(19)=5;FOR Z=1TO 500;NEXT Z;&(19)=0;&(20)=0;&(21)=0
 170 V=RND (6);Y=40-V×10;X=@(V+22);GOSUB 1000;@(V+22)=@(V+22)+20-RND (@(V+4))÷2
 180 IF (@(V+22)>70)+(@(V+22)=70)@(V+22)=70;K=1
 190 X=@(V+22);GOSUB 2000
 210 IF K=0GOTO 170
 215 &(21)=15;&(19)=25;FOR Z=1TO 500;NEXT Z;&(19)=0;&(21)=0
 229 FOR Z=1TO 999;NEXT Z;CLEAR ;NT=1
 230 PRINT "RACE RESULTS:
 233 PRINT "HORSE==WIN===PLACE===SHOW=
 235 O=0
 240 FOR X=70TO -70STEP -1;FOR Z=23TO 28
 250 IF @(Z)=X O=O+1;GOSUB 3000
 255 IF O>2GOTO 270
 260 NEXT Z;NEXT X
 270 PRINT "==========================
 290 FOR Z=1TO P;PRINT "PLAYER #",#1,Z,"     $",#5,@(Z);NEXT Z
 292 K=0;FOR Z=1TO P;IF @(Z)>30000K=1
 293 NEXT Z
 296 IF K=1PRINT "TRACK IS CLOSED!";FOR Z=1TO 1000;NEXT Z;GOTO 10
 300 FOR Z=1TO 3000;NEXT Z;GOTO 50
1000 BOX X,Y,9,9,2;RETURN 
2000 BOX X-3,Y+1,1,1,1;BOX X,Y,4,2,1;BOX X-2,Y-2,1,1,1;BOX X-3,Y-3,1,2,1;BOX X+2,Y+2,2,2,1;BOX X+4,Y+2,1,1,1
2010 BOX X+2,Y-2,2,1,1;BOX X+3,Y-3,1,1,1;RETURN 
3000 A=@(Z-18);B=A÷2;C=A÷3
3010 IF C<1C=1
3020 IF B<1B=1
3030 PRINT "#",#1,Z-22,
3040 IF O=1PRINT #7,A,B,C
3050 IF O=2PRINT #14,B,#7,C
3060 IF O=3PRINT #21,C
3070 FOR W=11TO 14;IF @(W)=Z-22GOSUB 4000
3080 NEXT W;RETURN 
4000 IF @(W+8)>=O@(W-10)=@(W-10)+(@(Z-18)÷@(W+8))×@(W+4)
4010 RETURN 
>RUN 
